home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Rexx / removealiases.amirx < prev    next >
Text File  |  1998-05-19  |  5KB  |  132 lines
  1. /* $VER: RemoveAliases.amirx 1.1 (9.5.98) Kuang Eleven V3 Alias Remover
  2.    Ariel Magnum
  3.    This script removes all aliases created by older Kuang Eleven versions
  4.    The aliases are set by a plugin in the current version
  5. */
  6. signal on syntax
  7. /* Init */
  8. options results
  9. if ~show('L','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  10. delete('Rexx/startup.amirx')
  11. if ~show('L','rexxreqtools.library') then if ~addlib('rexxreqtools.library',0,-30,0) then do
  12.     cecho('Error','Cannot load rexxreqtools.library')
  13.     exit
  14. end
  15. "INFO screen"
  16. tags='rt_pubscrname="'result'" rt_reqpos=reqpos_pointer'
  17. NL = '0a'x
  18. parse arg args
  19. pr='RemoveAlias'
  20.  
  21. cecho(pr,bld('Removing aliases.For your information,Kuang Eleven Aliases are now supplied by an AmIRC plugin'))
  22.  
  23. /*Aliases*/
  24. aliases:
  25. cecho(pr,bld('Installing K¹¹ Aliases'))
  26. aliascmd('bk','KBAN %p')
  27. aliascmd('kb','KBAN %p')
  28. aliascmd('pban','KBAN %p')
  29. aliascmd('axdcc','GETXDCC %p')
  30. aliascmd('kdcc','KDCC %p')
  31. aliascmd('kx','%p')
  32. /*
  33. aliascmd('away','AWAY %p')
  34. aliascmd('back','AWAY %p')
  35. */
  36. aliascmd('vote','VOTE %p')
  37. aliascmd('xdcc','XDCC %p')
  38. aliascmd('ikick','IKICK %p')
  39. aliascmd('chops','CHOPS %p')
  40. aliascmd('nops','NOPS %p')
  41. aliascmd('skick','SKICK %p')
  42. aliascmd('xdcc','XDCC %p')
  43. aliascmd('que','XDCC QUEUE')
  44. aliascmd('ig','KIGN %p')
  45. aliascmd('uig','KUNG %p')
  46. aliascmd('amsg','AMSG %p')
  47. aliascmd('ransk','RANSK %p')
  48. aliascfg('kc','%p')
  49. aliascfg('addk','ADDK %p')
  50. aliascfg('delk','DELK %p')
  51. aliascfg('listk','LISTK')
  52. aliascfg('load','LOAD %p')
  53. aliascfg('flist','LISTF %p')
  54. aliascfg('listf','LISTF %p')
  55. aliascfg('save','SAVE')
  56. aliascfg('savef','SAVEF')
  57. aliascfg('addf','ADDF %p')
  58. aliascfg('setf','SETF %p')
  59. aliascfg('delf','DELF %p')
  60. aliascfg('addh','ADDH %p')
  61. aliascfg('delh','DELH %p')
  62. aliascfg('renm','RENM %p')
  63. aliascfg('showu','SHOWU %p')
  64. aliascfg('check','CHECK %p')
  65. aliascfg('showc','SHOWC')
  66.  
  67. alias('page','/ctcp %p PAGE')
  68. alias('pc',"/rx '"||'options results;"GETCHANNEL";"SAY /PING" result'||"'")
  69. alias('cycle',"/rx '"||'options results;"GETCHANNEL";x=result;"SAY /LEAVE" x;"SAY /JOIN" x'||"'")
  70. alias('achan',"/rx '"||'options results;"CHANNELS";"SAY /MSG" translate(result,","," ") "%p"'||"'")
  71. alias('hiall',"/rx '"||'options results;"GETUSERS";x=%p translate(compress(result,"@+"),","," ");do until x=''|length(x)=1;p=min(length(x),150);parse var x y =p x;"SAY" y;end'||"'")
  72.  
  73. alias('butt','/rx butt.amirx %p')
  74. alias('momma','/rx momma.amirx %p')
  75. alias('phil','/rx Philosophy.amirx %p')
  76. alias('pinky','/rx pinkybrain.amirx %p')
  77. alias('rin','/rx rin.amirx %p')
  78. alias('splatt','/rx splatt.amirx %p')
  79.  
  80.  
  81. alias('bill','/rx billgates.amirx')
  82. aliasfld('kf','%p')
  83. alias('nfdeop','/rx kuang11.amirx :MDEOP mdeop')
  84.  
  85. alias('clone','/rx clone %p')
  86.  
  87. alias('khelp',"/rx '"||'address command "SYS:Utilities/MultiView Kuang_eleven.guide"'||"'")
  88.  
  89. alias('kgui',"/rx '"||'if show(P,KUANG) then do;address KUANG SHOW;exit;end;pragma(S,20000);address command "sys:rexxc/muirexx rexx/kuang11gui.amirx PORT KUANG HELP Kuang_Eleven.guide"'||"'")
  90. alias('kusr',"/rx '"||'setclip("kusrinit","%p");setclip("amirc",address());if show(P,KUANGUSR) then do;address KUANGUSR SHOW;exit;end;pragma(S,20000);address command "sys:rexxc/muirexx rexx/kuang11usr.amirx PORT KUANGUSR HELP Kuang11USR.guide"'||"'")
  91. alias('say','')
  92.  
  93.  
  94. /**/
  95. Alias('list')
  96.  
  97. x=statef('Default.AmIRCfg')
  98. parse var x . . . . x
  99. do forever
  100.     x1=rtezrequest("Done adding aliases." || NL ||"Now Select Save as defaults from the AmIRC Settings menu"||NL||"before closing this requester.","I Saved|Abort",pr,tags)
  101.     if x1=0 then do
  102.         cecho(pr,bld('If you do not save the preferences the aliases will still be on your AmIRC configuration file.Kuang Eleven aliases are now supported via a plugin so there is no use for the aliases anymore'))
  103.         cecho(pr,bld('If you wish to remove the aliases,enter "/RX REMOVEALIASES" (without quotes) and click enter'))
  104.         exit
  105.     end
  106.     x1=statef('Default.AmIRCfg')
  107.     parse var x1 . . . . x1
  108.     if x~=x1 then leave
  109.     cecho(pr,bld('Dont lie to me I can see the date on that file hasnt changed!'))
  110. end
  111. cecho(pr,bld('Finished removing aliases.For your information,Kuang Eleven Aliases are now supplied by an AmIRC plugin'))
  112. cecho(pr,'Kuang Eleven is fully installed now...Enjoy using it!')
  113. exit
  114. /* #### Shared #### */
  115. /**/
  116. verstr:;return 'Kuang Eleven v3.0'
  117. bld:;bld = x2c('02');return bld||arg(1)||bld
  118. cecho:;"ECHO P="d2c(27)"b«"arg(1)"»" arg(2)'.';return 0
  119. aliascmd:;'SAY /ALIAS' arg(1);return 0
  120. aliasfld:;'SAY /ALIAS' arg(1);return 0
  121. aliascfg:;'SAY /ALIAS' arg(1);return 0
  122. alias:;'SAY /ALIAS' arg(1);return 0
  123. /*
  124. aliascmd:;'SAY /ALIAS' arg(1) '= /RX Kuang11CMD.AMIRX' arg(2);return 0
  125. aliasfld:;'SAY /ALIAS' arg(1) '= /RX Kuang11FLD.AMIRX' arg(2);return 0
  126. aliascfg:;'SAY /ALIAS' arg(1) '= /RX Kuang11C.AMIRX' arg(2);return 0
  127. alias:;'SAY /ALIAS' arg(1) '=' arg(2);return 0
  128. */
  129. syntax:
  130. "ECHO" "P=Syntax" "Command on line" SIGL "returned" RC ":" errortext(rc) sourceline(SIGL)
  131. signal safequit
  132.